program e x e m p l o r e p e a t u n t i l 1 ;
var
n : integer ;
begin
writeln ( ’Informe um numero inteiro positivo : ’ ) ;
read ( n ) ;
repeat
writeln ( n ) ;
n := n − 1 ;
until n <= 0 ;
writeln ( ’Fim.’ ) ;
end .

